home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 57
/
64er_Magazin_Sonderheft_57_19xx_Markt__Technik_de_Side_A.d64
/
tiny.demo 3
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
810b
|
59 lines
10 ; hires plot demo fuer tinycompiler
20 ; funktion definieren:
30 ; ab zeile 63005 - z. 63010
40 ; skalierung: z. 63020
50 ; am ende taste druecken !
60000 poke53265,59
60010 poke53272,24
60011 letn=256
60012 letp=703
60013 letp=p+1
60014 ifn=1then60020
60015 letn=n/2
60016 pokep,n
60017 goto60013
60020 leti=1024
60030 pokei,1
60040 leti=i+1
60050 ifi<2024then60030
60060 leti=8192
60070 pokei,0
60075 leti=i+1
60080 ifi<16384then60070
60090 goto63000
61000 letw=y/8
61010 letv=x/8
61020 leth=w*40
61030 leth=h+v
61040 leth=h*8
61050 leth=h+8192
61060 letg=w*8
61070 letg=y-g
61080 letp=h+g
61100 ifp>16384then61170
61110 ifp<8192then61170
61115 letb=x/8
61120 letb=b*8
61130 letb=x-b
61140 letq=704+b
61150 letq=peek(q)
61160 pokep,q
61170 return
63000 letx=0
63001 ;
63005 lety=x*x
63010 lety=x+y
63015 ; funktion: y=x^2 + x
63020 lety=y/200
63030 gosub61000
63040 letx=x+1
63050 ifx<320then63005
63900 letq=peek(203)
63905 letz=z+1
63908 poke53280,z
63910 ifq=64then63900
63940 poke53272,21
63950 poke53265,27
63960 print"[147]";
63999 end